home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swags_z.zip
/
SOUND.SWG
/
0008_SBDEMO.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
510b
|
22 lines
{$M 16384,0,0}
Program Demo; { to demonstrate the SBVoice Unit }
{ Copyright 1991 Amit K. Mathur, Windsor, Ontario }
Uses SBVoice;
begin
if SBFound then begin
if paramcount=1 then begin
LoadVoice(ParamStr(1),0,0);
sb_Output(seg(SoundFile),ofs(SoundFile)+26);
Repeat
Write('Ha');
Until StatusWord=0;
end else
Writeln('Usage: DEMO [d:\path\]Filename.voc');
end else
Writeln('SoundBlaster Init Error. SoundBlaster v1.00 not Found.');
end.